home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / jw61wp.zip / W.JS < prev    next >
Text File  |  1992-10-28  |  515b  |  29 lines
  1. NB. Utilities for working with Windows
  2.  
  3. ht    =. 9{a.
  4. lf    =. 10{a.
  5. cr    =. 13{a.
  6. crlf  =. 13 10{a.
  7. eof   =. 26{a.
  8. ff    =. {:a.
  9.  
  10. host  =. 0!:0
  11. read  =. 1!:1
  12. wd    =. 11!:0
  13.  
  14. wp    =. wd@(-.&eof)@read
  15. wwait =. wd@('wait; '&[)
  16. wget  =. ({."1@] i. <@[) {:@{ ]
  17. quit  =. ('*id';'quit')&e.
  18. ctext =. ('ctext ',ff)&,@(,&(ff,';'))@,
  19.  
  20. t=.i.0 0
  21. t=.t, ' prolog 0'
  22. t=.t, ' t=.wwait 0'
  23. t=.t, 'loop)'
  24. t=.t, ' t=.iter t'
  25. t=.t, ' $.=.>(quit t){loop;end'
  26. t=.t, 'end)'
  27. t=.t, ' epilog 0'
  28. f     =. t : ''
  29.